home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
By Popular Request 2.0
/
By Popular Request 2.0 (Arsenal Computer).ISO
/
amiga_1
/
amilstcd.lha
/
AminetLST.ced
next >
Wrap
Text File
|
1995-04-16
|
702b
|
40 lines
/*
** AREXX Programm fuer CED um Aminet.LST die mit DORaus eingelesen wurden
** zu bearbeiten, dabei werden TXT Info und Index Dateien entfernt.
** By Reinaldo Erdey Maerz 1995
*/
OPTIONS RESULTS
ADDRESS "rexx_ced"
Signal On Halt
utarget = '.TXT'
Call Loeschen
utarget = '.INFO'
Call Loeschen
utarget = 'INDEX'
Call Loeschen
utarget = 'FILES.BBS'
Call Loeschen
utarget = '.README'
Call Loeschen
Address Command 'Beep'
okay2 'File abgespeichern ?'
If result = '1' Then Save
Exit
Loeschen:
'Beg of file'
Do Forever
'search for...' utarget
If result = '1' then Delete Line
If ~result then Leave
End
Return
Halt:
Okay1 '*** User-break detected ***'
Exit